home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 41
/
Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso
/
Aminet
/
comm
/
tcp
/
facts.lha
/
facts4.3
/
Install
< prev
next >
Wrap
Text File
|
2000-08-01
|
7KB
|
225 lines
; $VER: FACTS3Install 1.4 (01.08.00)
(set #inst-ver (/ @installer-version 65536))
(if (< #inst-ver 43)
(abort "You are running an old version of Installer.\n\n"
"Please update to at least version 43, available on Aminet.")
)
(welcome)
(set #ver-verstr (getversion "C:Version"))
(set #ver-ver (/ #ver-verstr 65536))
;(if (< #ver-ver 44)
; (
;(message "The FACTS installation will start by updating your Version command.\n\n"
; "Please read the following text before proceeding.\n\n"
; "Note that if v40.3 if already installed, you will not be prompted to replace it..." (all))
;
; (run "SYS:Utilities/Multiview Version_v40.3/Version_ReadMe")
;
; (copylib
; (prompt "If you have a version command older than v40.3, "
; "you may experience problems with dates in year 2000 and above.")
; (help "Dates in version strings display incorrectly on WB 3.0 and 3.1 versions "
; "of the Version command - please install this update.\n\n" @copylib-help)
; (source "Version_v40.3/Version")
; (dest "C:")
; (confirm "expert")
; )
;
; )
;)
(set @default-dest
(askdir
(prompt "Where would you like to install FACTS?")
(help "It is recommended that FACTS be running all the time, so "
"WBStartUp is the logical place.\n\n" @askdir-help)
(default "SYS:WBStartUp")
)
)
(startup "RexxMast"
(prompt "FACTS REQUIRES ARexx to be active when it starts up. "
"To do this, the RexxMast command should be executed in your "
"user-startup script.\n\nDoes this need adding? (if you are not "
"sure, it is safe to proceed with this anyway)")
(help @startup-help)
(command "RexxMast >NIL:")
(confirm "expert")
)
(set #already-installed (exists (tackon @default-dest "Facts.info")))
(set #timeserver-var (exists "ENVARC:TIMESERVER"))
(if #already-installed
(
(set #facts-vernum (getversion (tackon @default-dest "Facts")))
(set #facts-ver (/ #facts-vernum 65536))
(copylib
(prompt "Please check the version of FACTS you are copying against "
"any which might already be installed.")
(help @copylib-help)
(source "Facts")
(dest @default-dest)
(optional "askuser" "force" "oknodelete")
)
(if (< #facts-ver 3)
(
(iconinfo
(prompt "Updating TIMESERVER config file...")
(help @iconinfo-help)
(dest (tackon @default-dest "Facts"))
(gettooltype "SERVICE" "#service")
(gettooltype "TIMEOUT" "#timeout")
(safe)
)
(set #timeserver (getenv "ENV:TIMESERVER"))
(set #extra-config ("%s:%s:%s" #timeserver #service #timeout))
(textfile
(prompt "You appear to be updating from a pre-3.0 version of FACTS.\n"
"Do you want to update your TIMESERVER variable to the newer format?\n\n"
"NB: AutoDST settings have also changed - please check and update this manually "
"if necessary")
(help "Although FACTS 3 will read FACTS 2.x TIMESERVER variables, "
"this update procedure will ensure that all your previous prefs are kept "
"intact.\n\n" @textfile-help)
(dest "ENV:TIMESERVER")
(append #extra-config)
(confirm)
)
(copyfiles
(prompt "Copying ENV: to ENVARC:...")
(help @copyfiles-help)
(source "ENV:TIMESERVER")
(dest "ENVARC:")
)
)
)
(if (exists "ENVARC:TIMESERVER")
(
(copyfiles
(prompt "Moving old timeserver variable...")
(help @copyfiles-help)
(source "ENVARC:TIMESERVER")
(dest "ENVARC:FACTS")
(newname "TIMESERVER.0")
)
(delete "ENVARC:TIMESERVER")
)
)
(if (exists "ENV:TIMESERVER")
(
(copyfiles
(prompt "Moving old timeserver variable...")
(help @copyfiles-help)
(source "ENV:TIMESERVER")
(dest "ENV:FACTS")
(newname "TIMESERVER.0")
)
(delete "ENV:TIMESERVER")
)
)
)
(
(copylib
(prompt "Please check the version of FACTS you are copying against "
"any which might already be installed.")
(help @copylib-help)
(source "Facts")
(dest @default-dest)
(infos)
)
(tooltype
(prompt "Do you want FACTS to run silently in the background?\n\n"
"If you would prefer it to show the GUI on startup, please skip "
"this part.")
(help @tooltype-help)
(dest (tackon @default-dest "Facts"))
(settooltype "CXPOPUP" "NO")
(confirm "expert")
)
)
)
(copylib
(prompt "Please check the version of SLEFF you are copying against "
"any which might already be installed.")
(help "SLEFF is the Server List Editor for FACTS\n\n" @copylib-help)
(source "SLEFF")
(dest "SYS:Prefs")
(infos)
(confirm)
)
(set #doc-dir
(copyfiles
(prompt "Do you want to copy the documentation?")
(help @copyfiles-help)
(source "Facts.guide")
(infos)
(dest "HELP:English")
(optional "askuser" "force")
(confirm "expert")
)
)
(if (exists "libs:locale.library")
(copyfiles
(prompt "Select languages you wish to install (English is built in)")
(help "FACTS supports locale.library!\n\n" @copyfiles-help)
(source "catalogs")
(dest "LOCALE:catalogs")
(all)
(confirm "expert")
)
)
(copyfiles
(prompt "Do you want to install the example ARexx scripts in REXX:?\n\n"
"See Facts docs for more details")
(help @copyfiles-help)
(source "Rexx")
(dest "REXX:")
(optional "askuser" "force")
(confirm "expert")
(all)
)
(working "Starting ARexx...")
(run "RexxMast >NIL:")
(set #rexx-string ("install.rexx %s" (tackon @default-dest "Facts")))
(rexx #rexx-string
(prompt "I will now quit any old versions of FACTS, and "
"load the new one")
(help "Does what it says! Needs ARexx to be running.")
)
(run ("WBRun" (tackon @default-dest "Facts")))
(set #time (getenv "T:TIME"))
(if (> #inst-ver 43)
(
; (openwbobject @default-dest (safe))
; (showwbobject (tackon @default-dest "Facts"))
(openwbobject #doc-dir)
(showwbobject (tackon #doc-dir "Facts.guide"))
)
)
(exit "Finished!\n\n\nThe current time is\n\n" #time
"\n\n\nFACTS has been started, please ensure your timezone is set "
"correctly and then save config." (quiet))